; Copyright Xerox Corporation 1979

.TITLE PUPTST
; PUPTST -- ROUTINE TO TEST EFTP --

.CSECT GLOBAL
G=.

.CSECT

; ENTRY POINT TO START
LA1:
	SUB @(6),%0
	MOV %7,@%0
	MOV (6)+,-(0)
	CLR -2.(0)
	CLR -4.(0)
	CLR -6.(0)
	CLR -8.(0)
	MOV #000144,-10.(0)
	MOV #014000,-12.(0)
	MOV -12.(0),%1
	JSR %7,@G+216.
	000016
	MOV %1,-2.(0)
	CLR %3
	MOV -12.(0),%2
	MOV -2.(0),%1
	JSR %7,@G+260.
	000016
	MOV #000002,%2
	MOV -2.(0),%1
	JSR %7,@G+256.
	000016
	MOV %1,-8.(0)
	MOV -8.(0),%1
	ASL %1
	CLR (1)
	CLR %4
	MOV #000012,%3
	MOV -8.(0),%2
	MOV -2.(0),%1
	JSR %7,@G+324.
	000016
	JSR %7,@G+420.
	000016
	MOV -10.(0),%2
	MOV -2.(0),%1
	JSR %7,@G+256.
	000016
	MOV %1,-4.(0)
	MOV #000002,%4
	MOV LA3,%3
	MOV -10.(0),%2
	MOV -4.(0),%1
	JSR %7,@G+250.
	000016
	MOV %1,-6.(0)
	MOV -6.(0),%2
	MOV -8.(0),%1
	JSR %7,@G+230.
	000016
	MOV -6.(0),%1
	ASL %1
	MOV #177777,6.(1)
	MOV -6.(0),%1
	ASL %1
	MOV -2.(0),8.(1)
LA5:
	MOV -8.(0),%1
	ASL %1
	MOV (1),%1
	JSR %7,@G+252.
	000016
	MOV -6.(0),%1
	ASL %1
	TST 6.(1)
	BNE LA5
	JSR %7,@G+294.
	000016
	MOV (0)+,%5
	ADD (5)+,%0
	JMP @%5

LA4:
	JMP MA4

; ENTRY POINT TO FWDPUP
LA2:
	SUB @(6),%0
	MOV %7,@%0
	MOV (6)+,-(0)
	MOV %0,%5
	MOV %1,-(5)
	CLR -4.(0)
	CLR -6.(0)
	MOV %0,%1
	CLC 
	ROR %1
	SUB #000030,%1
	MOV %1,-8.(0)
	MOV %0,%1
	CLC 
	ROR %1
	SUB #000055,%1
	MOV %1,-50.(0)
	MOV %0,%1
	CLC 
	ROR %1
	SUB #000062,%1
	MOV %1,-92.(0)
	MOV %0,%1
	CLC 
	ROR %1
	SUB #000067,%1
	MOV %1,-102.(0)
	MOV -2.(0),%1
	ASL %1
	MOV #000412,%2
	MOV 8.(1),%1
	JSR %7,@G+256.
	000160
	MOV %1,-112.(0)
	MOV -92.(0),%1
	ASL %1
	MOV #000344,(1)
	MOV -92.(0),%1
	ASL %1
	CLR 2.(1)
	MOV -92.(0),%1
	ASL %1
	MOV #000020,4.(1)
	MOV -102.(0),%1
	ASL %1
	CLR (1)
	MOV -102.(0),%1
	ASL %1
	CLR 2.(1)
	MOV -102.(0),%1
	ASL %1
	MOV #000020,4.(1)
	MOV -92.(0),%3
	CLR %2
	MOV -8.(0),%1
	JSR %7,@G+422.
	000162
	CLR %3
	MOV -102.(0),%2
	MOV -50.(0),%1
	JSR %7,@G+422.
	000162
LA6:
	MOV #177777,%3
	MOV -112.(0),%2
	MOV -50.(0),%1
	JSR %7,@G+428.
	000162
	MOV %1,-4.(0)
	TST -4.(0)
	BGE LA7
	BR LA8
LA7:
	TST -4.(0)
	BLE LA9
	MOV #177777,%4
	MOV -4.(0),%3
	MOV -112.(0),%2
	MOV -8.(0),%1
	JSR %7,@G+426.
	000162
	MOV %1,-6.(0)
	TST -6.(0)
	BGT LA11
	BR LA8
LA11:
	BR LA10
LA9:
	MOV #177777,%2
	MOV -8.(0),%1
	JSR %7,@G+430.
	000162
	MOV %1,-6.(0)
	BR LA8
LA10:
	BR LA6
LA8:
	MOV -8.(0),%1
	JSR %7,@G+424.
	000162
	MOV -50.(0),%1
	JSR %7,@G+424.
	000162
	MOV -2.(0),%1
	ASL %1
	CLR 6.(1)
LA12:
	JSR %7,@G+254.
	000162
	BR LA12

MA4:

.CSECT GLOBAL

	.=G+2.
	LA1

.CSECT

LA3:
	LA2


.END